home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 3 / Literacy Segments Part 3 / card_87457.txt < prev    next >
Text File  |  1989-08-22  |  2KB  |  107 lines

  1. -- card: 87457 from stack: in
  2. -- bmap block id: 88180
  3. -- flags: 0000
  4. -- background id: 87598
  5. -- name: Network Services E/1
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global btnStatus
  9.   get line 2 of btnStatus
  10.   -- the line number should be tailored for each menu
  11.   repeat with i = 1 to 3
  12.     -- tailor to number of menu items on given menu
  13.     if item i of it is not empty
  14.     then set the icon of bg btn ("#" & i) to (4220 + i)
  15.   else set the icon of bg btn ("#" & i) to (4210 + i)
  16. end repeat
  17. pass openCard
  18. end openCard
  19.  
  20.  
  21. -- part 22 (button)
  22. -- low flags: 00
  23. -- high flags: 0000
  24. -- rect: left=478 top=319 right=341 bottom=498
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 1401 / 1401
  27. -- text alignment: 1
  28. -- font id: 0
  29. -- text size: 12
  30. -- style flags: 0
  31. -- line height: 16
  32. -- part name: Prev
  33. ----- HyperTalk script -----
  34. on mouseUp
  35.  
  36. end mouseUp
  37.  
  38.  
  39.  
  40. -- part 23 (button)
  41. -- low flags: 00
  42. -- high flags: 0000
  43. -- rect: left=493 top=319 right=341 bottom=512
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 1400 / 1400
  46. -- text alignment: 1
  47. -- font id: 0
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: Next
  52. ----- HyperTalk script -----
  53. on mouseUp
  54.  
  55. end mouseUp
  56.  
  57.  
  58.  
  59. -- part 28 (button)
  60. -- low flags: 00
  61. -- high flags: 0000
  62. -- rect: left=482 top=294 right=320 bottom=509
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 1235 / 1235
  65. -- text alignment: 1
  66. -- font id: 0
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: Last Menu
  71.  
  72.  
  73. -- part contents for background part 23
  74. ----- text -----
  75. Click a choice.
  76.  
  77. -- part contents for background part 5
  78. ----- text -----
  79. Examples
  80.  
  81. -- part contents for background part 24
  82. ----- text -----
  83. There are three Examples in this segment:
  84.  
  85.  
  86. -- part contents for background part 6
  87. ----- text -----
  88. 87457
  89.  
  90. -- part contents for background part 27
  91. ----- text -----
  92. Example 1:
  93. A Computer Laboratory
  94.  
  95. -- part contents for background part 28
  96. ----- text -----
  97. Example 2:
  98. Software Developers
  99.  
  100. -- part contents for background part 3
  101. ----- text -----
  102. Network Services
  103.  
  104. -- part contents for background part 36
  105. ----- text -----
  106. Example 3:
  107. Network Services at Work